home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00489.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  298 b   |  16 lines
  1. on exitFrame
  2.   global bore, s
  3.   if the mouseDown then
  4.     puppetSprite(1, 0)
  5.     puppetSprite(2, 0)
  6.     puppetSprite(3, 0)
  7.     updateStage()
  8.     if the timeoutLapsed > (3 * 60) then
  9.       startTimer()
  10.       set bore to bore + 1
  11.       borecheck()
  12.       do("sel" & s & EMPTY)
  13.     end if
  14.   end if
  15. end
  16.